* subr.el (event-end): Modified to account for multi-click events.

diff --git a/lisp/subr.el b/lisp/subr.el
index ad96cc54ee34938d4da78ebc165183be4cca680a..9759799fb3a0c76570c635cb4cc01599a4846f49 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -313,7 +313,7 @@ If EVENT is a click event, this function is the same as `event-start'.
 The return value is of the form
    (WINDOW BUFFER-POSITION (COL . ROW) TIMESTAMP)
 The `posn-' functions access elements of such lists."
-  (nth (1- (length event)) event))
+  (nth (if (consp (nth 2 event)) 2 1) event))
 
 (defsubst posn-window (position)
   "Return the window in POSITION.